% This macro file is for business letters
\def\today{\ifcase\the\month\or
  January\or February\or March\or April\or May\or June\or
  July\or August\or September\or October\or November\or December\fi
  \space\number\the\day, \number\the\year}
\def\up#1{\ifvmode\indent\fi\raise.2ex\hbox{#1}}

\font\smallheadfont=cmr8 at 8truept
\font\largeheadfont=cmdunh at 15truept
\font\logofont=manhdr at 15truept

\font\tenrm=amr10 % temporary substitutions during font development
\font\tentt=amtt
\font\tenbf=ambx10
\let\mainfont=\tenrm
\textfont0=\tenrm
\rm

\hsize=6.25truein
\raggedbottom
\def\inset{4truein }
\parindent=0pt \parskip=0pt
\interlinepenalty=1000
\nopagenumbers
\def\headline{\ifnum\the\count0>1
  \rm To \addressee\hfil\today\hfil Page \the\count0
  \else\hfil\fi}

\def\rjdletterhead{
  \def\sendingaddress{R. J. DROFNATS, F.T.U.G.\par
    PROFESSOR OF FARM ECOLOGY\par
    TEX.RJD AT SU-SCORE.ARPA\par
    \up[415\up]\thinspace 497-4975\par}
  \def\returnaddress{R. J. Drofnats, Dept.@of Farm Ecology\par
    The University of St.@Anford\par
    P. O. Box 1009, Haga Alto, CA 94305 USA}
  \letterhead}
\def\letterhead{\setcount0=1 \usaletterhead
  {\leftskip=\inset
    {\baselineskip9truept\smallheadfont\sendingaddress}
    \bigskip\bigskip\rm\today\bigskip}}
\def\usaletterhead{\hbox{%
    \hbox to\inset{\raise4truemm\hbox{\logofont\kern.2em \char'130\kern-.1667em
        \lower.424ex\hbox{\char'130}\kern-.1667em\char'130}\hfil
      \largeheadfont The University of St.@Anford\hfil}\hskip-\inset%
    \vbox{\smallheadfont\baselineskip9truept\leftskip=\inset
      BOX 1009\par
      HAGA ALTO, CA 94321}}
  \vskip2truept\hrule\vskip4truept }


\let\endmode=\par
\def\beginlinemode{\endmode
  \begingroup\obeylines\def\endmode{\par\endgroup}}
\def\beginparmode{\endmode
  \begingroup\parskip=\skip\medskipregister\def\endmode{\par\endgroup}}
\newbox\theaddress
\def\address{\beginlinemode\getaddress}
\beginlinemode\gdef\getaddress#1
  #2
  {\gdef\addressee{#2\unskip}%
    \global\setbox\theaddress=\vbox\lb\raggedright%
    \hsize=\inset \everypar{\hangindent2em}#2
    \def\endmode{\rb\endgroup}}\endmode
\def\body{\beginparmode\copy\theaddress\bigskip}
\def\closing{\beginlinemode\getclosing}
\beginlinemode\gdef\getclosing#1
  #2
  {\nobreak\bigskip\leftskip=\inset\parskip=0pt#2
  \nobreak\bigskip\bigskip\bigskip\def\par{\endgraf\nobreak}\obeylines}\endmode
\def\annotations{\beginlinemode\parskip=0pt\def\par{\endgraf\nobreak}%
  \obeylines\nobreak}
\def\ps{\beginparmode\nobreak
  \interlinepenalty5000\def\par{\endgraf\penalty5000}}
\def\endletter{\endmode\vfill\supereject}
\def\makelabel{\endletter\hbox{\vrule
    \vbox{\hrule \kern6truept
      \hbox{\kern6truept\vbox to 2truein{\hsize=\inset
          \smallheadfont\baselineskip9truept\returnaddress
          \vfill\moveright 2truein\box\theaddress\vfill}%
        \kern6truept}\kern6truept\hrule}\vrule}
  \setcount0=0\vfill\eject}